home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / PROD.LI < prev    next >
Text File  |  1993-10-16  |  227b  |  10 lines
  1. #    prod() gives product
  2. #    e.g prod(x-j, j,1,3,1) gives (x-1) (x-2) (x-3)
  3. #    See also: sum.
  4.  
  5. prod(y_,x_,a_,b_,c_) := block(prod:=1,
  6.     do(prod:=prod*y, x,a,b,c),
  7.     prod,
  8.     local(prod))
  9. prod(y_,x_,a_,b_) := prod(y, x,a,b,1)
  10.